home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1993 July / InfoMagic USENET CD-ROM July 1993.ISO / sources / misc / volume27 / dmake / part04 < prev    next >
Encoding:
Text File  |  1992-01-29  |  40.0 KB  |  1,316 lines
  1. Newsgroups: comp.sources.misc
  2. From: dvadura@plg.waterloo.edu (Dennis Vadura)
  3. Subject:  v27i105:  dmake - dmake Version 3.8, Part04/41
  4. Message-ID: <1992Jan28.031206.6937@sparky.imd.sterling.com>
  5. X-Md4-Signature: 368bb50c9e7418fad1fe40f43f184c22
  6. Date: Tue, 28 Jan 1992 03:12:06 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: dvadura@plg.waterloo.edu (Dennis Vadura)
  10. Posting-number: Volume 27, Issue 105
  11. Archive-name: dmake/part04
  12. Environment: Atari-ST, Coherent, Mac, MSDOS, OS/2, UNIX
  13. Supersedes: dmake: Volume 19, Issue 22-58
  14.  
  15. ---- Cut Here and feed the following to sh ----
  16. # this is dmake.shar.04 (part 4 of a multipart archive)
  17. # do not concatenate these parts, unpack them in order with /bin/sh
  18. # file dmake/dbug/dbug/dbug.uue continued
  19. #
  20. if test ! -r _shar_seq_.tmp; then
  21.     echo 'Please unpack part 1 first!'
  22.     exit 1
  23. fi
  24. (read Scheck
  25.  if test "$Scheck" != 4; then
  26.     echo Please unpack part "$Scheck" next!
  27.     exit 1
  28.  else
  29.     exit 0
  30.  fi
  31. ) < _shar_seq_.tmp || exit 1
  32. if test -f _shar_wnt_.tmp; then
  33. sed 's/^X//' << 'SHAR_EOF' >> 'dmake/dbug/dbug/dbug.uue' &&
  34. M2B'8ZSA!Z_024_ZP2,),<,)]TQ+7HV\P>:&O7K\S21"#S_9!9W],773'GA-4
  35. MCM1LX )CH ,&D0,Z<-Q5ON<ZX/0.H@-.'RF22N5(/9SX1^5(S08N, 8Z8! Y
  36. MH /'7>5[K@-.[R ZX/21 JA4CM3#B7]4CM1LX )CH ,&D0,Z<-Q5ON<ZX/0.
  37. MH@-.'RD=1>5(/9SX1^5(S08N, 8ZH$\SH /'7>5[K@-0;'HZ ,6FITJB">.U
  38. MS@8N, 8ZH$\SH /'7>5[K@-0;'HZ ,6FITH."^.US@8N, 8ZH$\SH /'7>5[
  39. MK@-0;'HZ ,6FITHZY5( 2.<34<S^];!4CM0=T@(C0 8Z\*94CM1LH -&H -,
  40. MH -&<LS=3.@_HZ2OQ3P,>UZJ5E77SV<_(P(,1@:/^/D)<XN3&$=L#P(B0.5(
  41. MS08N, :/N&=.%K0_3)DX (O6(0)17MJG/?VJ1"[6$5NRP?9%,_A!%P,R@'[6
  42. M7,W"GLT<5<8?1:DB%7_@O.QM[,;/+L?1GLY(^81.Z(3O_- -^- -R- "#?U2
  43. MD 4(D 4(D 4(D 4@D/)8X?+LG%(0W8 ,/= [6!;0#][YC!5/Z(1...WD)"74
  44. M:6I/QE;T53"\X\4O.?KI,3=9%S'T1A"77YZ?CQ>O91TO#6; )4M4]+M?_>ZW
  45. MP6#!H?/D[IR10B[6X4L;XR>&S?:8*_6:(A)7WUMGH/6_Q?M%&?9A'_:\8?8/
  46. M?#>0YV9^8MB_1YV+/]C='7_37=W771PPPI'0X5#IXS$7*AO'(6FTD3GRPC0S
  47. MR:EM5/X@-ND39VK PUC@+Y)T7C*=V&GJB[CT3[5V @*(*(J[F9#8/*PJ+ <B
  48. M8,#P(=W4;=W8_?EFR)YT?J=5$BBC[T9G<J2CCD6]9C/8//X#H0;L>2[@_XKJ
  49. M./]ZT4HSR:EAH)M/U5FR]L$+>1A^8CI&!>\#P;'E0><Z#OO4;=W8+?TVC[A(
  50. MMJ&=Z.[N>_!BC.9JSN9NCCG2;05/D 1$\ 5ION9M+OTVWR_8O-64'FL0$G#<
  51. M"6H#(=W4;=U20.?2?U@$D4.(UC4P5Q" ECG64AX'+\9HKN9L[N;/H^.P;P5/
  52. MD 1$\ 5ION9MGCFI1>>F4DAP55F8\8>%TQC20D5R4O:Q@:38_-)@!ERR-%P>
  53. M<Z&R<1R21AOE2 9,LY-TCM!8H ,Z#OO4;=W8C9;:G9E;A^9JSN9NCJG0"1EF
  54. M!B&A)8KPUD* -OYTODZ"2]+Z 6C23=W6C=W2;_-[MOENW#]'S)VU%>^=V&GJ
  55. MJ_>\0VXZ2>< QA-RPR143.DZ7TNBSQ-RPR011.<XFQPZ61 HX'W3I'D$$=E-
  56. M4Q!DV]+P*\;2;05/D 1$\ 5ION9MGCFI%?^!.GO:A,WX0Q ;"A^0J!#Q]P5I
  57. MON9M;A":0><Z#OM6\ 1)0 1?D.9KWN:9DUJ7>$OC3^<_/3L+XQH6T[[E02'2
  58. M3=W6C=W2GQ%=BLWJB-)+NXI<X]'(!TCDDJTV@\V?CQ=5V8EQ(V<W72HH "$X
  59. M3TT_3^<(C04ZH..PG^9KWN:U1VXZ&>?X5P18H ,Z#OM6\ 1)0 1?D.9KWN;0
  60. M+1/>#=[B3=[% 2,<R7/^>'59QRYH"TT'+\:N&(@#$02W2XAC\^M9BCG:R<4)
  61. M^_G4[QK.>MYL69<5LC3,U4S+V5*H*\:^$B1QPS(+(VF \3_K)B)[$L4GP8R/
  62. M6@18H ,Z#OO?'=[C7=XACM[0G1,;WN$#,05EL+[>L:+9OS,?4AK1&VY",>OP
  63. M*\97EW5:%/69/?6-4O557_58?P9:[V0?<B>/43IQ9&_'+NP;%0/;_%&4*E+Q
  64. M!\[+WL9N_.QR'.WI#/0YL78K 8OOEEUUH$[6L:*+6!K,!HYN#/@1NTYZTR%1
  65. MG"9( B/06=0SR:F?SUF=IKZ_^]5XP2Z7YD5>/).<"J3O!EL?$CL0UCR2U843
  66. M1.?KI#<M%<6O?F(.CQB(5O:QT=+P*\:_SL!'9F $X01@ A_\PF<_XX??> 9T
  67. M#@(BT (C\(CDXAT*;VL=%L6[4;O-D\1BC"2^=GV1$G2__DCSKQ?N'^EO@ !O
  68. M@ !O@ !@@@!T@ !T@  !.9.<RA[2PHJN(2:J##^?7SJ=IKXRZL;.F!&^<M/#
  69. M!:3L@5@ )(J[F9#8O-75SB[#JL(4H_Z% KZ52P<(0 <(0 <(H"'EN[ER@ !R
  70. M@ !R@  .S#L@( (M, *EC<U1?!+,^*A%@ 4ZH..P#P4<[N$H$.+YO=\D[N1=
  71. M[E)%@ 4ZH..P#P4<[N%H208Z0 ?;3><(C04ZH..P#P4<[N%HN=U KQ#QQ^-/
  72. M  6#*5_F6-3(R!<["N[H6=/TQJEE)VF%8QV+&#O1L1+62=5ODET)B<UEIT[,
  73. MZV0?@D7\$D?A)A3E^4QMALT+.WWEJ8X6@QE_2"'/9&(E(9LRZL;"'W\\_@10
  74. M(/TVOS"N83&_KI[,^*A%@ 4ZH..P#P5/  7/#?3>'']?8 1)P 0'73+P(=U&
  75. MD 1,<-#2;_-)ED/WDS#]2N<W#QS4HA=)\ )/4%WI$ZM*ZB%;:"S8K#BJE$,^
  76. M02XZ5G7(]E1(@J38K&$:+R<B<'DP]XCD* *7)R2/^%HV@\VO!WD@D 0O\ 0S
  77. M347,^*A%@ 4ZP!NU+-U&D 1,4 1"(P)$((KZT0925E4DYL9)\ )/$ )P#MTR
  78. M(=U%@ 5%, 158-WQ#A_270184 1#4 76G3FI=1[(E$.(EI#8[(I?1,3!P1%'
  79. M;!%6^KNED?]TGK[KHO<_$ZOSEAFQ!S4Y=#]O0.>GMK!\Y49G<KW<81T 7[O-
  80. MD\1BC"2PU1_U 9V=IKZ_^QR?;X;L2>?->=/E"5=(E#(3.5DY!#6K<XQTKN.P
  81. MW^,__OEO8$>+([+_$1LA4XCT=N")09WE:=.DQW?.9"'*HH]<=@)D< )TSAN 
  82. MA!(+XQH6\^N/=&3L@@))X )%X +I.! B\%'8/ )DH -T\(B1?Q\> CDG\?-T
  83. MCM!8H ,Z#OM%@ 5%, 158-W?RF&;49='PF%C@@).#MWJ)]UN7C(A)OV@;[A)
  84. MY>;HT6MMQ!$G,9.<*@,M4 /IF%17EW41 Q@QHY]E "*#Y-&H*\8@6;0^02[>
  85. MX6IR,XX\X9NA1Q#SAZ38O*+>+04^SE"?S\?'+NP;%0/%_E&4*E+Q!\[+WL9N
  86. M_.QR'.WI#/3('G\\+@4^SE"8RI']NJR%D^Z%)P)FH*^EC<W (08<<<23/G&Q
  87. MYD76<7595X>[B\VLUQ%"(]U&D 1,4 2_"Q_YWQV=IKYTGF2 %JL@,&^9$7O'
  88. M"1\U6A\^\3UTWL#MZV0._^KJV$;K-)UA5!_?> 9TGK[K\L-Y03). ";PP2\R
  89. M&\/9T2_8',4E'2F_SL!'QBZ1V!W,Z:]T+OTVG[[K<K+PA?Z(7O557_4I4RF4
  90. MDA<(0 <(0 <($)"EX1A^8EP^81)T'DM91QJ"Q8R/6@18H ,Z#OL]_N-H60:@
  91. M49>/Z7PAPO;8\9R8&>?X5P18H ,Z#OL]_N-H:2=U^9AVHDK16I=T#ATNZ>1=
  92. M[E)%@ 4ZH..PW^,_CI9Y 0=U^9C1ZE$^ )=*GA=PT*78G!?JU (^P'-EX.30
  93. M/1/2/05JK@1-  7% 2,^02YPHA)4JV-E0 =J\"8HH'F3/G%LB\VND_^O 3OI
  94. M<W595X>=OR>+.).<^D2K;DAO!!\/?#>0IW!J\"9T?F8'ZOB,HQQ553!&8OF=
  95. MO\)O0.=07.5M> (Z6VGN \.E(=U,\ 1.< 1*T 100.?2;_-)ED/WDS FX7U!
  96. M;!VO!WET+FOU<09J\"8HH'F%R")#,#=9%S&%54A"U2 71N=3)MU3H.9*T 10
  97. MD#GL.2!C<'7RZ1PP/),'+EOC#XM%HV-5-_YT7C&@N!NSEAC,^*A%@ 4ZH..P
  98. M/P5JK@1-  6U%QF9^7/2S01/X 1'H 1-  7% 2,^02YPHA)4:QV*<1)J\"8H
  99. MH'F3/G%LB\WXD_\#03=5[H\/N:/@3N?H^6<+UT;0(4#PP7!M)&M(0^<Z#OM3
  100. MH.9*T 10@,0M;2%#[(HM#;]B_'J0YS#U<09J\"8HH'EG=J $X01@ A_EI?\)
  101. M>W59%S%2-OH#(=U,\ 1.< 1*T 10<&SO3N=07.7^N(B=*+.\DZ)E"[]B#$A(
  102. M)MU3H.9*T 10$/^8L31-TYQE)RV9_AYT#F##(_EQ!"-BPG;2/05JK@1-  5_
  103. MB\W2S01/X 1'H 1-  634SSY\CM2MJ&/9C/8G/T'XC$7*AO'(6FT48YDP#2E
  104. M0;8V@\WY#XF=IKY2_<M!DG4 PG8V@\WL4>W,^*A%@ 4ZH..PSP1/X 1'H 1-
  105. M  6U%QDL0&Z96<W"GLT<=0/&_G[)OL::VE)N_.QR'.WIC)3#SQ4&7?PAW_HE
  106. MY8(T2-!#D/)O$<],T?Q4 /W@G<]8<=$6;=$@\(1.Z(3-3P70+P4P&,\RZ((K
  107. M..VC%[&1?Q\> CF[\1PYQ)' *;.\LX@L1,#P >X$D>Z%-_RJ7_PB[X(KF/P\
  108. M/M$$^,Y/Z(1.^(,^Z(.9DUH&C!XUBO@(\61L15]%+6)SDW414UA^]!M'FOUM
  109. M.H8Z3XXV$W& I!_#JL+Y\M-,1V<[1WL%+S&DL28#$02=IKX:<V3KZQA^8EP^
  110. M02XGL 4G_$0GT 4G'(FE+C+) ?PX009;P +SEAFQ-P=M601.O'/_2'G78?:9
  111. M\^X$T35T3A"UVSSS,F^9$7OP'O2FP30=<F301^<$,6^9$7NN(4!PHF7\LK^%
  112. M-&^9$7L,<CK";DG4*9) GQ!$L 4LX&=M"1* A/\9!F'-<S\"]&>Z^52X3N<$
  113. MH:0_K"SYE3"O%'Y/1P8<81(R>N)4($ ZY!HE(9NO93"<D;LM!&@U6A])C,TH
  114. M0&XZN67^I4K^"IPVVO@?L7>F1^?CXAHLEA',2!%FL 4L,/YST);_-D $D?W*
  115. MUK,ZW]()@Z3"7KO-,R]'!F_<,?[P'@1"9Z@G?F2J/.D3I_/GX4I:5E[LLC)T
  116. M3A#CSR!)94G4*9) GQ-& .AR<%"X#N[A]W1!QY!TWM(_4_X@AK>:Z/02$_F!
  117. M>_#8;!V?;R1PA=/6H:3,^*A, .AR<%"X#N[A]W1!QY!TWM*\,_A.OW-!M]3[
  118. MA[UT?FRI=6;,MAO6H:3,^*CFHE)R<%"X#N[A]W1!QY!TWM*E.#=9IW&4;FHE
  119. MIW=CB') GQ-N/@5EP(<7:FQ+O7_G8F;_TOE5+>Q*^L.DOG:;X6!ZL4_Q7DY<
  120. M[,8YU(Y#1C% XA>.D6KA)@=E!R-RXCXD=N+93U6(=QZN(43/]2FETC5T/CEG
  121. MK:3,*&I;P *@UY:!]WO4F3[9WZ:(YR%;J.]O0.<MS3LAQVC-@VB@9\!5M'>F
  122. M1^<$H:1.IGB%X7JW)R0D$P0$T?/#>>*_SL!'QBYP!2.YBWA2C;K8K'UNKV(>
  123. M@GD&!O23LP4L@+;4T9;_-D $D?W*UK,ZW]()@Z3"7KO-@VAH2QTD$P2FP30M
  124. M=62G-^V/NE$Q@ /&_G[)OL::VE)N_.QR'.WI#/3.YDI:UEKL3AV_6TX,NF!,
  125. M0^<$L>F>8_'2@D4_S70\E#H$41Z_D<38C+;4P2). ";PP2_L@NO_TOE5+>Q*
  126. M^L.DSF;-Z>YR<&AW:S/"7OX@EAYSDW7L@K8#D>Y(*NPG  4GW#<M\;O(:/&(
  127. M5?Z(^T[M6QYTWM*\TQV=IKZB@B0P@F@ AJ3"/ORJ7_PB[X(KF/P\/M$%>(!6
  128. MD<]80=#B'8(:^(1.Z(1/Z(1.*/T9P8R/"@6 +@<'A>O@'GY/%W0,2><M_3/E
  129. M#V+I,3=9%R;LSB+)/,/"GD/M:+CFDD/8,G4 Q.ZUI$QT3A >PS&6YAQ-XSD6
  130. M+RU8Q"_L$HG$!!MT3A# LQO9'X@@X 1@PNU\AIR1J'7"CK:9PYY5R1$G41HC
  131. M_#/9KTW"'OGWX2&0LQOX8V*Q)"WEB3\V(^SE\1L^@;;4P8R/<PXA/DDC=J
  132. M0.ES-W76,?RJ7_PB[X(KF/P\/M$$^,Y/Z(1.^(,^Z(-T?FRI!4]T4P9\5HIS
  133. MDW5WYR!%A?C"/FLM)P:R!$\LEA$LDLSOE$/M*)]!?>+#K_K%+_(NN(+)S^,3
  134. M38#O_(1.Z(0_Z(,^F#GO7K4J!AW%4G8< 3G+0>>0>%_:7QK9OS,?LI,/2P=;
  135. MP ).T)9%X,02,_[KI#=\XS>"@FKY(:,G7NAA@ <"]#$5 XJ[<7*J5+O-D\38
  136. M'+U.T%X^07I\M[ZN(V P@'[6;,U _Z@;=5/&_G[)OL::VE)N_.QR'.WIC)0_
  137. MZ(,^"(/QS!3-3P5/Z(1.&/0-+=!!./Q<D5(0[8#WG 1/Z(1.2-#B'8(:>-$6
  138. M;=$7;=$6S= "'80&G?)8\<Y/Z(1...WU"6+E^$XYU(YG=D8J[5/<81TO#6; 
  139. M)4O3C"$%DS#(%XF%)W<$-V7>41*RZ=/D0@>9D?AF$"19!QG8,T>-^+OE5!V#
  140. MZ%T.ZJ^)YD9G<O &T2QG32XBNC]T=!E(U8:#LZ$T,FE^D5SNA1"Q)1F[8?F=
  141. MOR=*RHLG%B19EW.K^+O(Z.<=@8I?$T<><U13-TW]XUU5Z 8RYQKD(J+[0T>7
  142. M@50S.2[LDC5SX",;BD7JV$9*>AXB6S:]9D9R$_Z]MD19NV!^X1BI!GH&#!]T
  143. MD!D# 21^X1BI!GIRPF9?$T>HFR7+$R19!R#&AGR1R)&W,8Q1ET)QPS)(51IR
  144. M5Q])RAU]EAF<KJ<THCSZ.&/ 3Q%!,! \T;3EZ<5@8^D)2C=T+RB@^.I(!1^;
  145. MCXN'Y*-#3""WE!YSDW7LTO=>A![(%XGSTA*!.\,((7<$9Y@\@9^NT?>!];OE
  146. MY!HX6K4+QC2U9"$DEIUY'XG5M;PF@3EA/6/ 3Q&*HTKZ6Z1F$&&FQ[[RLCR%
  147. MA4)X4/B%L_!/E9 88N[G"1L]5[_P,?[)X;<@!@(O#6; )4O3C! X5"3MZUW\
  148. MU3ZG G-XJXGK%"AA;;( 9K:? [V$LQO9'X@@D%94;DKBA<(R1B-WX!<Z9.YD
  149. MY1/DLD0'T?=)GSY00!M':A%#L+2K>" VW48XQ!FTUVM<1<#F=4ML _<@@ 15
  150. M%9QVY(8>0AEGP#*.01]S0T5$LOV4KS'@R3)-)3!XPXGK=*'VMUDW[8_9?R"?
  151. MCQ<-3,#P 3V;0;A2QL0$ET7EZ<+ T=3Q#A_),W));! +OR>1W33-F4-VICKX
  152. MCSD:@FV,A0>%_RU^GB/H9\W5+.S9'&#H]5&4*E+Q!\[+WL9N_.QR'.WIC)0$
  153. M/00,+= 66($5:- ,+=#-3P5/Z(1...U"]M)@!ERR-%R9(0=KX!H^\DZVY%H_
  154. MS70;.I,$(0)!1U'G3@:/^(\R!S6RXS5((BA*PND7+SKOXAB*-9P'$6YR4':5
  155. M=2)91AWE\[7Q/[S-^4)R$$SE:4TU#UTD=A 4=>[SXEIJ-3M(@K-!<7^"5^6N
  156. M$;U#\KHD;9/P:Q#K,6GY!B*?CQ?P5(@A-T9\0^DZK_E%&D: Y&C@F)V\D_T4
  157. M$^7P#@)/T$+TX=9E<)SHH1Y]$4GH4>\(L1YPXEUEFJV6W_E[HJ2JI-.>008?
  158. M,R/SDB&E0_9/CSYEEQ<M('<"DHN#"T? 3Q%]'AXZ(OK,U!CBB%K*\<%&=1V4
  159. MKO/Q-"($;%[PA?Z)ONB&P@8(P 8(P 8(H!P(P 8(P 8(H!@(\ 8(\ 8(\,$(
  160. M, 8(, 8(D'#/=--R1OK(6(\^S&R[81VO!WD:\])@!ERR1$6_^]5XH1>7)B!U
  161. 6JTKA=5]I *"4_\%4D\0&T1CB.!Q$ 1VO
  162. X 
  163. end
  164. SHAR_EOF
  165. chmod 0640 dmake/dbug/dbug/dbug.uue ||
  166. echo 'restore of dmake/dbug/dbug/dbug.uue failed'
  167. Wc_c="`wc -c < 'dmake/dbug/dbug/dbug.uue'`"
  168. test 22625 -eq "$Wc_c" ||
  169.     echo 'dmake/dbug/dbug/dbug.uue: original size 22625, current size' "$Wc_c"
  170. rm -f _shar_wnt_.tmp
  171. fi
  172. # ============= dmake/dbug/getwd.c ==============
  173. if test -f 'dmake/dbug/getwd.c' -a X"$1" != X"-c"; then
  174.     echo 'x - skipping dmake/dbug/getwd.c (File already exists)'
  175.     rm -f _shar_wnt_.tmp
  176. else
  177. > _shar_wnt_.tmp
  178. sed 's/^X//' << 'SHAR_EOF' > 'dmake/dbug/getwd.c' &&
  179. char *
  180. getwd(pathname)
  181. char *pathname;
  182. {
  183. X   return("delete this code if your getwd.c works correctly");
  184. }
  185. SHAR_EOF
  186. chmod 0640 dmake/dbug/getwd.c ||
  187. echo 'restore of dmake/dbug/getwd.c failed'
  188. Wc_c="`wc -c < 'dmake/dbug/getwd.c'`"
  189. test 106 -eq "$Wc_c" ||
  190.     echo 'dmake/dbug/getwd.c: original size 106, current size' "$Wc_c"
  191. rm -f _shar_wnt_.tmp
  192. fi
  193. # ============= dmake/dbug/malloc/Makefile ==============
  194. if test ! -d 'dmake/dbug/malloc'; then
  195.     mkdir 'dmake/dbug/malloc'
  196. fi
  197. if test -f 'dmake/dbug/malloc/Makefile' -a X"$1" != X"-c"; then
  198.     echo 'x - skipping dmake/dbug/malloc/Makefile (File already exists)'
  199.     rm -f _shar_wnt_.tmp
  200. else
  201. > _shar_wnt_.tmp
  202. sed 's/^X//' << 'SHAR_EOF' > 'dmake/dbug/malloc/Makefile' &&
  203. #
  204. # (c) Copyright 1990 Conor P. Cahill (uunet!virtech!cpcahil).  
  205. # You may copy, distribute, and use this software as long as this
  206. # copyright statement is not removed.
  207. #
  208. #
  209. # This is the Makefile for the malloc debugging library
  210. #
  211. # $Id: Makefile,v 1.5 90/08/29 22:34:27 cpcahil Exp $
  212. #
  213. CC=cc
  214. # for System V systems use this CFLAGS
  215. #CFLAGS=-g -DSYS5
  216. # else for BSD use:
  217. #CFLAGS=-g
  218. LINT=lint
  219. SHARCMD=shar -o mallocshar -l50 -x -a -n Malloclib
  220. SHELL=/bin/sh
  221. X
  222. LIB=libmalloc.a
  223. X
  224. SRCS=    malloc.c    \
  225. X    free.c        \
  226. X    realloc.c    \
  227. X    calloc.c    \
  228. X    string.c    \
  229. X    mlc_chk.c    \
  230. X    mlc_chn.c    \
  231. X    memory.c    \
  232. X    tostring.c    \
  233. X    m_perror.c    \
  234. X    m_init.c    \
  235. X    mallopt.c    \
  236. X    dump.c
  237. X
  238. OBJS=    malloc.o    \
  239. X    free.o        \
  240. X    realloc.o    \
  241. X    calloc.o    \
  242. X    string.o    \
  243. X    mlc_chk.o    \
  244. X    mlc_chn.o    \
  245. X    memory.o    \
  246. X    tostring.o    \
  247. X    m_perror.o    \
  248. X    m_init.o    \
  249. X    mallopt.o    \
  250. X    dump.o
  251. X
  252. TESTS=testmlc testmem
  253. X
  254. all:    $(LIB) $(TESTS)
  255. X
  256. clean:  
  257. X    rm -f $(TESTS) pgm $(LIB) *.o *.ln
  258. X
  259. sharfile:
  260. X    $(SHARCMD) Makefile README patchlevel *.[ch3] 
  261. X    
  262. $(LIB): $(OBJS)
  263. X    ar ru $(LIB) $(OBJS)
  264. X    -if test -s /bin/ranlib; then /bin/ranlib $(LIB); else exit 0; fi
  265. X    -if test -s /usr/bin/ranlib; then /usr/bin/ranlib $(LIB); else exit 0; fi
  266. X
  267. testmlc:    $(LIB) testmlc.o
  268. X    $(CC) -o $@ testmlc.o $(LIB)
  269. X
  270. testmem:    $(LIB) testmem.o
  271. X    $(CC) -o $@ testmem.o $(LIB)
  272. X
  273. lint:    
  274. X    $(LINT) $(CFLAGS) $(SRCS) testmlc.c testmem.c
  275. X
  276. X
  277. $(OBJS):    malloc.h
  278. X
  279. tostring.o malloc.o dump.o:    tostring.h
  280. SHAR_EOF
  281. chmod 0640 dmake/dbug/malloc/Makefile ||
  282. echo 'restore of dmake/dbug/malloc/Makefile failed'
  283. Wc_c="`wc -c < 'dmake/dbug/malloc/Makefile'`"
  284. test 1365 -eq "$Wc_c" ||
  285.     echo 'dmake/dbug/malloc/Makefile: original size 1365, current size' "$Wc_c"
  286. rm -f _shar_wnt_.tmp
  287. fi
  288. # ============= dmake/dbug/malloc/_changes ==============
  289. if test -f 'dmake/dbug/malloc/_changes' -a X"$1" != X"-c"; then
  290.     echo 'x - skipping dmake/dbug/malloc/_changes (File already exists)'
  291.     rm -f _shar_wnt_.tmp
  292. else
  293. > _shar_wnt_.tmp
  294. sed 's/^X//' << 'SHAR_EOF' > 'dmake/dbug/malloc/_changes' &&
  295. I made the following changes to the malloc package as found in
  296. comp.sources.unix:
  297. X
  298. X    1. created this file _changes.
  299. X    2. moved README to _readme (facilitates transfer to DOS and back to
  300. X       unix)
  301. X    3. renamed testmalloc.c, malloc_chk.c, and malloc_chn.c to testmlc.c,
  302. X       mlc_chk.c, and mlc_chn.c respectively.  Again DOS has trouble with
  303. X       long basenames in filenames.
  304. SHAR_EOF
  305. chmod 0640 dmake/dbug/malloc/_changes ||
  306. echo 'restore of dmake/dbug/malloc/_changes failed'
  307. Wc_c="`wc -c < 'dmake/dbug/malloc/_changes'`"
  308. test 369 -eq "$Wc_c" ||
  309.     echo 'dmake/dbug/malloc/_changes: original size 369, current size' "$Wc_c"
  310. rm -f _shar_wnt_.tmp
  311. fi
  312. # ============= dmake/dbug/malloc/_readme ==============
  313. if test -f 'dmake/dbug/malloc/_readme' -a X"$1" != X"-c"; then
  314.     echo 'x - skipping dmake/dbug/malloc/_readme (File already exists)'
  315.     rm -f _shar_wnt_.tmp
  316. else
  317. > _shar_wnt_.tmp
  318. sed 's/^X//' << 'SHAR_EOF' > 'dmake/dbug/malloc/_readme' &&
  319. # (c) Copyright 1990 Conor P. Cahill. (uunet!virtech!cpcahil) 
  320. # You may copy, distribute, and use this software as long as this
  321. # copyright statement is not removed.
  322. X
  323. This package is a collection of routines which are a drop-in replacement
  324. for the malloc(3), memory(3), string(3), and bstring(3) library functions.
  325. X
  326. The purpose of these programs is to aid the development and/or debugging
  327. of programs using these functions by providing a high level of consistancy
  328. checking whenever a malloc pointer is used.  Due to this increased 
  329. level of consistancy checking, these functions have a considerably larger
  330. overhead than the standard functions, but the extra checking should be
  331. well worth it in a development environment.
  332. X
  333. To use these functions all you need to do is compile the library and
  334. include it on your loader command line.  You do not need to recompile
  335. your code, only a relink is necessary.  
  336. X
  337. Features of this library:
  338. X
  339. X 1. The malloced area returned from each call to malloc is filled with
  340. X    non-null bytes.  This should catch any use of uninitialized malloc
  341. X    area.  The fill pattern for malloced area is 0x01.
  342. X
  343. X 2. When free is called numerous validity checks are made on the 
  344. X    pointer it is passed.  In addition, the data in the malloc block
  345. X    beyound the size requested on the initial malloc is checked to 
  346. X    verify that it is still filled with the original fill characters.
  347. X
  348. X    This is usefull for catching things like:
  349. X
  350. X        ptr = malloc(5);
  351. X        ptr[5] = '\0';
  352. X
  353. X        /*
  354. X         * You should not that this will be caught when it is
  355. X         * freed not when it is done
  356. X         */
  357. X
  358. X    And finally, the freed block is filled with a different fill pattern
  359. X    so that you can easily determine if you are still using free'd space.
  360. X    The fill pattern for free'd areas is 0x02.
  361. X
  362. X    This is usefull for catching things like:
  363. X
  364. X        ptr = malloc(20);
  365. X
  366. X        bptr = ptr+10;
  367. X
  368. X        /* do something usefule with bptr */
  369. X
  370. X        free(ptr);
  371. X
  372. X        /* 
  373. X         * now try to do something useful with bptr, it should
  374. X         * be trashed enough that it would cause real problems
  375. X         * and when you went to debug the problem it would be
  376. X         * filled with 0x02's and you would then know to look 
  377. X         * for something free'ing what bptr points to.
  378. X         */
  379. X        
  380. X
  381. X 3. Whenever a bstring(3)/string(3)/memory(3) function is called, it's 
  382. X    parameters are checked as follows:
  383. X
  384. X    If they point somewhere in the malloc arena
  385. X        If the operation goes beyond requested malloc space
  386. X            call malloc_warning()
  387. X
  388. X    This is usefull for catching things like:
  389. X
  390. X        ptr = malloc(5);
  391. X        strcpy(ptr,"abcde");
  392. X            
  393. X    
  394. X 4. Malloc_warning() and malloc_fatal() are used when an error condition
  395. X    is detected.  If the error is severe, malloc_fatal is called.  
  396. X    Malloc_warning is used otherwise.  The decision about what is fatal
  397. X    and what is a warning was made somewhat arbitrarily.
  398. X
  399. X    Warning messages include:
  400. X
  401. X    Calling free with a bad pointer
  402. X        Calling a bstring/string/memory (3) function which will go beyond
  403. X        the end of a malloc block (Note that the library function is
  404. X            not modified to refuse the operation.  If malloc warnings are
  405. X        in the default IGNORE case, the operation will continue and 
  406. X        at some point cause a real problem).
  407. X
  408. X    Fatal errors are:
  409. X
  410. X    Detectable corruption to the malloc chain.
  411. X    
  412. X
  413. X 5. The operations to perform when an error is detected are specified at
  414. X    run time by the use of environment variables.
  415. X
  416. X    MALLOC_WARN - specifies the warning error message handling
  417. X    MALLOC_FATAL - specifies the fatal error handling
  418. X
  419. X
  420. X    When one of these error conditions occur you will get an error
  421. X    message and the handler will execute based upon what setting
  422. X    is in the environment variables.  Currently understood settings
  423. X    are as follows:
  424. X
  425. X          0 - continue operations
  426. X          1 - drop core and exit
  427. X          2 - just exit
  428. X          3 - drop core, but continue executing.  Core files will
  429. X             be placed into core.[PID].[counter] i.e: core.00123.001
  430. X        128 - dump malloc chain and continue
  431. X        129 - dump malloc chain, dump core, and exit
  432. X        130 - dump malloc chain, exit
  433. X        131 - dump malloc chain, dump core, continue processing
  434. X        
  435. X
  436. X    There is an additional environment variable MALLOC_ERRFILE which
  437. X    is used to indicate the name of the file for error message output.
  438. X
  439. X    For example, to set up the session to generate a core file for
  440. X    every malloc warning, to drop core and exit on a malloc fatal, and 
  441. X    to log all messages to the file "malloc_log" do the following:
  442. X
  443. X        MALLOC_WARN=131
  444. X        MALLOC_FATAL=1
  445. X        MALLOC_ERRFILE=malloc_log
  446. X
  447. X        export MALLOC_WARN MALLOC_FATAL MALLOC_ERRFILE
  448. X
  449. X 6. The function malloc_dump() is available to dump the malloc chain whenever
  450. X    you might want.  It's only argument is a file descriptor to use to write
  451. X    the data.  Review the code if you need to know what data is printed.
  452. SHAR_EOF
  453. chmod 0640 dmake/dbug/malloc/_readme ||
  454. echo 'restore of dmake/dbug/malloc/_readme failed'
  455. Wc_c="`wc -c < 'dmake/dbug/malloc/_readme'`"
  456. test 4758 -eq "$Wc_c" ||
  457.     echo 'dmake/dbug/malloc/_readme: original size 4758, current size' "$Wc_c"
  458. rm -f _shar_wnt_.tmp
  459. fi
  460. # ============= dmake/dbug/malloc/calloc.c ==============
  461. if test -f 'dmake/dbug/malloc/calloc.c' -a X"$1" != X"-c"; then
  462.     echo 'x - skipping dmake/dbug/malloc/calloc.c (File already exists)'
  463.     rm -f _shar_wnt_.tmp
  464. else
  465. > _shar_wnt_.tmp
  466. sed 's/^X//' << 'SHAR_EOF' > 'dmake/dbug/malloc/calloc.c' &&
  467. /*
  468. X * (c) Copyright 1990 Conor P. Cahill (uunet!virtech!cpcahil).  
  469. X * You may copy, distribute, and use this software as long as this
  470. X * copyright statement is not removed.
  471. X */
  472. #include <stdio.h>
  473. X
  474. /*
  475. X * Function:    calloc()
  476. X *
  477. X * Purpose:    to allocate and nullify a data area
  478. X *
  479. X * Arguments:    nelem    - number of elements
  480. X *        elsize    - size of each element
  481. X *
  482. X * Returns:    NULL    - if malloc fails
  483. X *        or pointer to allocated space
  484. X *
  485. X * Narrative:    determine size of area to malloc
  486. X *        malloc area.
  487. X *        if malloc succeeds
  488. X *            fill area with nulls
  489. X *        return ptr to malloc'd region
  490. X */
  491. #ifndef lint
  492. static char rcs_header[] = "$Id: calloc.c,v 1.1 1992/01/24 03:28:58 dvadura Exp $";
  493. #endif
  494. X
  495. char *
  496. calloc(nelem,elsize)
  497. X    unsigned int       nelem;
  498. X    unsigned int       elsize;
  499. {
  500. X    char        * malloc();
  501. X    char        * memset();
  502. X    char        * ptr;
  503. X    unsigned int      size;
  504. X
  505. X    size = elsize * nelem;
  506. X
  507. X    if( (ptr = malloc(size)) != NULL)
  508. X    {
  509. X        (void) memset(ptr,'\0',(int)size);
  510. X    }
  511. X
  512. X    return(ptr);
  513. }
  514. X
  515. X
  516. /*
  517. X * $Log: calloc.c,v $
  518. X * Revision 1.1  1992/01/24  03:28:58  dvadura
  519. X * dmake Version 3.8, Initial revision
  520. X *
  521. X * Revision 1.6  90/05/11  00:13:07  cpcahil
  522. X * added copyright statment
  523. X * 
  524. X * Revision 1.5  90/02/24  20:41:57  cpcahil
  525. X * lint changes.
  526. X * 
  527. X * Revision 1.4  90/02/24  17:25:47  cpcahil
  528. X * changed $header to $id so full path isn't included.
  529. X * 
  530. X * Revision 1.3  90/02/24  13:32:24  cpcahil
  531. X * added function header.  moved log to end of file.
  532. X * 
  533. X * Revision 1.2  90/02/22  23:08:26  cpcahil
  534. X * fixed rcs_header line
  535. X * 
  536. X * Revision 1.1  90/02/22  23:07:38  cpcahil
  537. X * Initial revision
  538. X * 
  539. X */
  540. SHAR_EOF
  541. chmod 0640 dmake/dbug/malloc/calloc.c ||
  542. echo 'restore of dmake/dbug/malloc/calloc.c failed'
  543. Wc_c="`wc -c < 'dmake/dbug/malloc/calloc.c'`"
  544. test 1572 -eq "$Wc_c" ||
  545.     echo 'dmake/dbug/malloc/calloc.c: original size 1572, current size' "$Wc_c"
  546. rm -f _shar_wnt_.tmp
  547. fi
  548. # ============= dmake/dbug/malloc/debug.h ==============
  549. if test -f 'dmake/dbug/malloc/debug.h' -a X"$1" != X"-c"; then
  550.     echo 'x - skipping dmake/dbug/malloc/debug.h (File already exists)'
  551.     rm -f _shar_wnt_.tmp
  552. else
  553. > _shar_wnt_.tmp
  554. sed 's/^X//' << 'SHAR_EOF' > 'dmake/dbug/malloc/debug.h' &&
  555. /*
  556. X * (c) Copyright 1990 Conor P. Cahill (uunet!virtech!cpcahil).  
  557. X * You may copy, distribute, and use this software as long as this
  558. X * copyright statement is not removed.
  559. X */
  560. /************************************************************************/
  561. /*                                    */
  562. /* this include sets up some macro functions which can be used while    */
  563. /* debugging the program, and then left in the code, but turned of by    */
  564. /* just not defining "DEBUG".  This way your production version of     */
  565. /* the program will not be filled with bunches of debugging junk    */
  566. /*                                    */
  567. /************************************************************************/
  568. /*
  569. X * $Id: debug.h,v 1.1 1992/01/24 03:28:59 dvadura Exp $
  570. X */
  571. X
  572. #ifdef DEBUG
  573. X
  574. #if DEBUG == 1            /* if default level            */
  575. #undef DEBUG
  576. #define DEBUG    100        /*   use level 100            */
  577. #endif
  578. X
  579. #include <stdio.h>
  580. X
  581. #define DEBUG0(val,str)\
  582. X                {\
  583. X                  if( DEBUG > val ) \
  584. X                    fprintf(stderr,"%s(%d): %s\n",\
  585. X                        __FILE__,__LINE__,str);\
  586. X                }
  587. #define DEBUG1(val,str,a1)\
  588. X                    {\
  589. X                  char _debugbuf[100];\
  590. X                  if( DEBUG > val )\
  591. X                   {\
  592. X                    sprintf(_debugbuf,str,a1);\
  593. X                    fprintf(stderr,"%s(%d): %s\n",\
  594. X                        __FILE__,__LINE__,_debugbuf);\
  595. X                   }\
  596. X                       }
  597. X
  598. #define DEBUG2(val,str,a1,a2)\
  599. X                    {\
  600. X                 char _debugbuf[100];\
  601. X                  if( DEBUG > val )\
  602. X                   {\
  603. X                    sprintf(_debugbuf,str,a1,a2);\
  604. X                    fprintf(stderr,"%s(%d): %s\n",\
  605. X                        __FILE__,__LINE__,_debugbuf);\
  606. X                   }\
  607. X                       }
  608. X
  609. #define DEBUG3(val,str,a1,a2,a3)\
  610. X                    {\
  611. X                  char _debugbuf[100];\
  612. X                  if( DEBUG > val )\
  613. X                   {\
  614. X                    sprintf(_debugbuf,str,a1,a2,a3);\
  615. X                    fprintf(stderr,"%s(%d): %s\n",\
  616. X                        __FILE__,__LINE__,_debugbuf);\
  617. X                   }\
  618. X                       }
  619. X
  620. #define DEBUG4(val,str,a1,a2,a3,a4)\
  621. X                     {\
  622. X                  char _debugbuf[100];\
  623. X                  if( DEBUG > val )\
  624. X                   {\
  625. X                    sprintf(_debugbuf,str,a1,a2,a3,a4);\
  626. X                    fprintf(stderr,"%s(%d): %s\n",\
  627. X                        __FILE__,__LINE__,_debugbuf);\
  628. X                   }\
  629. X                       }
  630. X
  631. #define DEBUG5(val,str,a1,a2,a3,a4,a5)\
  632. X                     {\
  633. X                  char _debugbuf[100];\
  634. X                  if( DEBUG > val )\
  635. X                   {\
  636. X                    sprintf(_debugbuf,str,a1,a2,a3,a4,a5);\
  637. X                    fprintf(stderr,"%s(%d): %s\n",\
  638. X                        __FILE__,__LINE__,_debugbuf);\
  639. X                   }\
  640. X                       }
  641. X
  642. #else
  643. X
  644. #define DEBUG0(val,s)
  645. #define DEBUG1(val,s,a1)
  646. #define DEBUG2(val,s,a1,a2)
  647. #define DEBUG3(val,s,a1,a2,a3)
  648. #define DEBUG4(val,s,a1,a2,a3,a4)
  649. #define DEBUG5(val,s,a1,a2,a3,a4,a5)
  650. X
  651. #endif /* DEBUG */
  652. X
  653. X
  654. /*
  655. X * $Log: debug.h,v $
  656. X * Revision 1.1  1992/01/24  03:28:59  dvadura
  657. X * dmake Version 3.8, Initial revision
  658. X *
  659. X * Revision 1.2  90/05/11  00:13:08  cpcahil
  660. X * added copyright statment
  661. X * 
  662. X * Revision 1.1  90/02/23  07:09:01  cpcahil
  663. X * Initial revision
  664. X * 
  665. X */
  666. SHAR_EOF
  667. chmod 0640 dmake/dbug/malloc/debug.h ||
  668. echo 'restore of dmake/dbug/malloc/debug.h failed'
  669. Wc_c="`wc -c < 'dmake/dbug/malloc/debug.h'`"
  670. test 2719 -eq "$Wc_c" ||
  671.     echo 'dmake/dbug/malloc/debug.h: original size 2719, current size' "$Wc_c"
  672. rm -f _shar_wnt_.tmp
  673. fi
  674. # ============= dmake/dbug/malloc/dump.c ==============
  675. if test -f 'dmake/dbug/malloc/dump.c' -a X"$1" != X"-c"; then
  676.     echo 'x - skipping dmake/dbug/malloc/dump.c (File already exists)'
  677.     rm -f _shar_wnt_.tmp
  678. else
  679. > _shar_wnt_.tmp
  680. sed 's/^X//' << 'SHAR_EOF' > 'dmake/dbug/malloc/dump.c' &&
  681. /*
  682. X * (c) Copyright 1990 Conor P. Cahill (uunet!virtech!cpcahil).  
  683. X * You may copy, distribute, and use this software as long as this
  684. X * copyright statement is not removed.
  685. X */
  686. #include <stdio.h>
  687. #include "malloc.h"
  688. #include "tostring.h"
  689. X
  690. /*
  691. X * Function:    malloc_dump()
  692. X *
  693. X * Purpose:    to dump a printed copy of the malloc chain and
  694. X *        associated data elements
  695. X *
  696. X * Arguments:    fd    - file descriptor to write data to
  697. X *
  698. X * Returns:    nothing of any use
  699. X *
  700. X * Narrative:    Just print out all the junk
  701. X *
  702. X * Notes:    This function is implemented using low level calls because
  703. X *         of the likelyhood that the malloc tree is damaged when it
  704. X *        is called.  (Lots of things in the c library use malloc and
  705. X *        we don't want to get into a catch-22).
  706. X *
  707. X */
  708. X
  709. #ifndef lint
  710. static
  711. char rcs_hdr[] = "$Id: dump.c,v 1.1 1992/01/24 03:29:01 dvadura Exp $";
  712. #endif
  713. X
  714. X
  715. #define ERRSTR    "I/O Error on malloc dump file descriptor\n"
  716. X
  717. #define WRITEOUT(fd,str,len)    if( write(fd,str,(unsigned)len) != len ) \
  718. X                { \
  719. X                    (void) write(2,ERRSTR,\
  720. X                             (unsigned)strlen(ERRSTR));\
  721. X                    exit(120); \
  722. X                }
  723. X
  724. void
  725. malloc_dump(fd)
  726. X    int        fd;
  727. {
  728. X    char              buffer[512];
  729. X    void              exit();
  730. X    int              i;
  731. X    extern char        * malloc_data_end;
  732. X    extern char        * malloc_data_start;
  733. X    extern struct mlist     * malloc_end;
  734. X    extern struct mlist      malloc_start;
  735. X    struct mlist         * ptr;
  736. X
  737. X    WRITEOUT(fd,"MALLOC CHAIN:\n",14);
  738. X    WRITEOUT(fd,"-------------------- START ----------------\n",44);
  739. X
  740. X    for(i=0; i < 80; i++)
  741. X    {
  742. X        buffer[i] = ' ';
  743. X    }
  744. X
  745. X    for(ptr = &malloc_start; ptr; ptr = ptr->next)
  746. X    {
  747. X        (void) tostring(buffer,       (int)ptr,         8,    B_HEX,    '0');
  748. X        (void) tostring(buffer+9,  (int)ptr->next,   8,    B_HEX,    '0');
  749. X        (void) tostring(buffer+18, (int)ptr->prev,   8,    B_HEX,    '0');
  750. X        (void) tostring(buffer+27, (int)ptr->flag,  10,    B_HEX,    '0');
  751. X        (void) tostring(buffer+38, (int)ptr->s.size, 8,    B_DEC,    ' ');
  752. X        (void) tostring(buffer+47, (int)ptr->s.size, 8,    B_HEX,    '0');
  753. X        (void) tostring(buffer+57, (int)ptr->data,   8,    B_HEX,    '0');
  754. X        buffer[46] = '(';
  755. X        buffer[55] = ')';
  756. X        buffer[65] = '\n';
  757. X        WRITEOUT(fd,buffer,66);
  758. X    }
  759. X    WRITEOUT(fd,"-------------------- DONE -----------------\n",44);
  760. X
  761. X    WRITEOUT(fd,"Malloc start:      ",19);
  762. X    (void) tostring(buffer, (int) &malloc_start, 8, B_HEX, '0');
  763. X    buffer[8] = '\n';
  764. X    WRITEOUT(fd,buffer,9);
  765. X
  766. X    WRITEOUT(fd,"Malloc end:        ", 19);
  767. X    (void) tostring(buffer, (int) malloc_end, 8, B_HEX, '0');
  768. X    buffer[8] = '\n';
  769. X    WRITEOUT(fd,buffer,9);
  770. X
  771. X    WRITEOUT(fd,"Malloc data start: ", 19);
  772. X    (void) tostring(buffer, (int) malloc_data_start, 8, B_HEX, '0');
  773. X    buffer[8] = '\n';
  774. X    WRITEOUT(fd,buffer,9);
  775. X
  776. X    WRITEOUT(fd,"Malloc data end:   ", 19);
  777. X    (void) tostring(buffer, (int) malloc_data_end, 8, B_HEX, '0');
  778. X    buffer[8] = '\n';
  779. X    WRITEOUT(fd,buffer,9);
  780. X    
  781. } /* malloc_dump(... */
  782. X
  783. X
  784. /*
  785. X * $Log: dump.c,v $
  786. X * Revision 1.1  1992/01/24  03:29:01  dvadura
  787. X * dmake Version 3.8, Initial revision
  788. X *
  789. X * Revision 1.5  90/08/29  21:22:37  cpcahil
  790. X * miscellaneous lint fixes
  791. X * 
  792. X * Revision 1.4  90/05/11  00:13:08  cpcahil
  793. X * added copyright statment
  794. X * 
  795. X * Revision 1.3  90/02/24  21:50:07  cpcahil
  796. X * lots of lint fixes
  797. X * 
  798. X * Revision 1.2  90/02/24  17:27:48  cpcahil
  799. X * changed $header to $Id to remove full path from rcs id string
  800. X * 
  801. X * Revision 1.1  90/02/22  23:17:43  cpcahil
  802. X * Initial revision
  803. X * 
  804. X */
  805. SHAR_EOF
  806. chmod 0640 dmake/dbug/malloc/dump.c ||
  807. echo 'restore of dmake/dbug/malloc/dump.c failed'
  808. Wc_c="`wc -c < 'dmake/dbug/malloc/dump.c'`"
  809. test 3270 -eq "$Wc_c" ||
  810.     echo 'dmake/dbug/malloc/dump.c: original size 3270, current size' "$Wc_c"
  811. rm -f _shar_wnt_.tmp
  812. fi
  813. # ============= dmake/dbug/malloc/free.c ==============
  814. if test -f 'dmake/dbug/malloc/free.c' -a X"$1" != X"-c"; then
  815.     echo 'x - skipping dmake/dbug/malloc/free.c (File already exists)'
  816.     rm -f _shar_wnt_.tmp
  817. else
  818. > _shar_wnt_.tmp
  819. sed 's/^X//' << 'SHAR_EOF' > 'dmake/dbug/malloc/free.c' &&
  820. /*
  821. X * (c) Copyright 1990 Conor P. Cahill (uunet!virtech!cpcahil).  
  822. X * You may copy, distribute, and use this software as long as this
  823. X * copyright statement is not removed.
  824. X */
  825. #include <stdio.h>
  826. #include "malloc.h"
  827. #include "debug.h"
  828. X
  829. /*
  830. X * Function:    free()
  831. X *
  832. X * Purpose:    to deallocate malloced data
  833. X *
  834. X * Arguments:    ptr    - pointer to data area to deallocate
  835. X *
  836. X * Returns:    nothing of any value
  837. X *
  838. X * Narrative:
  839. X *        verify pointer is within malloc region
  840. X *        get mlist pointer from passed address
  841. X *        verify magic number
  842. X *        verify inuse flag
  843. X *        verify pointer connections with surrounding segments
  844. X *        turn off inuse flag
  845. X *        verify no data overrun into non-malloced area at end of segment
  846. X *        IF possible join segment with next segment
  847. X *        IF possible join segment with previous segment
  848. X *        Clear all data in segment (to make sure it isn't reused)
  849. X *
  850. X */
  851. #ifndef lint
  852. static
  853. char rcs_hdr[] = "$Id: free.c,v 1.1 1992/01/24 03:29:02 dvadura Exp $";
  854. #endif
  855. X
  856. void
  857. free(cptr)
  858. X    char    * cptr;
  859. {
  860. X    char            * func = "free";
  861. X    int              i;
  862. X    extern int          malloc_checking;
  863. X    extern struct mlist    * malloc_end;
  864. X    extern int          malloc_errno;
  865. X    extern char        * malloc_data_end;
  866. X    extern char        * malloc_data_start;
  867. X    void              malloc_join();
  868. X    void              malloc_memset();
  869. X    struct mlist        * oldptr;
  870. X    struct mlist        * ptr;
  871. X
  872. X    /*
  873. X     * IF malloc chain checking is on, go do it.
  874. X     */
  875. X    if( malloc_checking )
  876. X    {
  877. X        (void) malloc_chain_check(1);
  878. X    }
  879. X
  880. X    /*
  881. X     * verify that cptr is within the malloc region...
  882. X     */
  883. X    if( cptr < malloc_data_start || cptr > malloc_data_end )
  884. X    {
  885. X        malloc_errno = M_CODE_BAD_PTR;
  886. X        malloc_warning(func);
  887. X        return;
  888. X    }
  889. X
  890. X    /* 
  891. X     * convert pointer to mlist struct pointer.  To do this we must 
  892. X     * move the pointer backwards the correct number of bytes...
  893. X     */
  894. X    
  895. X    ptr = (struct mlist *) (cptr - M_SIZE);
  896. X    
  897. X    if( (ptr->flag&M_MAGIC) != M_MAGIC )
  898. X    {
  899. X        malloc_errno = M_CODE_BAD_MAGIC;
  900. X        malloc_warning(func);
  901. X        return;
  902. X    }
  903. X
  904. X    if( ! (ptr->flag & M_INUSE) )
  905. X    {
  906. X        malloc_errno = M_CODE_NOT_INUSE;
  907. X        malloc_warning(func);
  908. X        return;
  909. X    }
  910. X
  911. X     if( (ptr->prev && (ptr->prev->next != ptr) ) ||
  912. X        (ptr->next && (ptr->next->prev != ptr) ) ||
  913. X        ((ptr->next == NULL) && (ptr->prev == NULL)) )
  914. X    {
  915. X        malloc_errno = M_CODE_BAD_CONNECT;
  916. X        malloc_warning(func);
  917. X        return;
  918. X    }
  919. X
  920. X    ptr->flag &= ~M_INUSE;
  921. X
  922. X    /*
  923. X     * verify that the user did not overrun the requested number of bytes.
  924. X     */
  925. X    for(i=ptr->r_size; i < ptr->s.size; i++)
  926. X    {
  927. X        if( ptr->data[i] != M_FILL )
  928. X        {
  929. X            malloc_errno = M_CODE_OVERRUN;
  930. X            malloc_warning(func);
  931. X            break;
  932. X        }
  933. X    }
  934. X
  935. X    DEBUG3(10,"pointers: prev: 0x%.7x,  ptr: 0x%.7x, next: 0x%.7x",
  936. X            ptr->prev, ptr, ptr->next);
  937. X    
  938. X    DEBUG3(10,"size:     prev: %9d,  ptr: %9d, next: %9d",
  939. X            ptr->prev->s.size, ptr->s.size, ptr->next->s.size);
  940. X    
  941. X    DEBUG3(10,"flags:    prev: 0x%.7x,  ptr: 0x%.7x, next: 0x%.7x",
  942. X            ptr->prev->flag, ptr->flag, ptr->next->flag);
  943. X    
  944. X    /*
  945. X     * check to see if this block can be combined with the next and/or
  946. X     * previous block.  Since it may be joined with the previous block
  947. X     * we will save a pointer to the previous block and test to verify
  948. X     * if it is joined (it's next ptr will no longer point to ptr).
  949. X      */
  950. X    malloc_join(ptr,ptr->next,0,0);
  951. X    
  952. X    oldptr = ptr->prev;
  953. X
  954. X    malloc_join(ptr->prev, ptr,0,0);
  955. X
  956. X    if( oldptr->next != ptr )
  957. X    {
  958. X        DEBUG0(10,"Oldptr was changed");
  959. X        ptr = oldptr;
  960. X    }
  961. X    
  962. X    /*
  963. X     * fill this block with '\02's to ensure that nobody is using a 
  964. X     * pointer to already freed data...
  965. X     */
  966. X    malloc_memset(ptr->data,M_FREE_FILL,(int)ptr->s.size);
  967. X
  968. }
  969. X
  970. /*
  971. X * $Log: free.c,v $
  972. X * Revision 1.1  1992/01/24  03:29:02  dvadura
  973. X * dmake Version 3.8, Initial revision
  974. X *
  975. X * Revision 1.9  90/08/29  21:22:48  cpcahil
  976. X * miscellaneous lint fixes
  977. X * 
  978. X * Revision 1.8  90/05/11  00:13:08  cpcahil
  979. X * added copyright statment
  980. X * 
  981. X * Revision 1.7  90/02/25  11:00:18  cpcahil
  982. X * added support for malloc chain checking.
  983. X * 
  984. X * Revision 1.6  90/02/24  21:50:18  cpcahil
  985. X * lots of lint fixes
  986. X * 
  987. X * Revision 1.5  90/02/24  17:29:13  cpcahil
  988. X * changed $Header to $Id so full path wouldnt be included as part of rcs 
  989. X * id string
  990. X * 
  991. X * Revision 1.4  90/02/24  15:15:32  cpcahil
  992. X * 1. changed ALREADY_FREE errno to NOT_INUSE so that the same errno could
  993. X *    be used by both free and realloc (since it was the same error).
  994. X * 2. fixed coding bug
  995. X * 
  996. X * Revision 1.3  90/02/24  14:23:45  cpcahil
  997. X * fixed malloc_warning calls
  998. X * 
  999. X * Revision 1.2  90/02/24  13:59:10  cpcahil
  1000. X * added function header.
  1001. X * Modified calls to malloc_warning/malloc_fatal to use new code error messages
  1002. X * Added support for malloc_errno setting of error codes.
  1003. X * 
  1004. X * Revision 1.1  90/02/22  23:17:43  cpcahil
  1005. X * Initial revision
  1006. X * 
  1007. X */
  1008. SHAR_EOF
  1009. chmod 0640 dmake/dbug/malloc/free.c ||
  1010. echo 'restore of dmake/dbug/malloc/free.c failed'
  1011. Wc_c="`wc -c < 'dmake/dbug/malloc/free.c'`"
  1012. test 4604 -eq "$Wc_c" ||
  1013.     echo 'dmake/dbug/malloc/free.c: original size 4604, current size' "$Wc_c"
  1014. rm -f _shar_wnt_.tmp
  1015. fi
  1016. # ============= dmake/dbug/malloc/m_init.c ==============
  1017. if test -f 'dmake/dbug/malloc/m_init.c' -a X"$1" != X"-c"; then
  1018.     echo 'x - skipping dmake/dbug/malloc/m_init.c (File already exists)'
  1019.     rm -f _shar_wnt_.tmp
  1020. else
  1021. > _shar_wnt_.tmp
  1022. sed 's/^X//' << 'SHAR_EOF' > 'dmake/dbug/malloc/m_init.c' &&
  1023. /*
  1024. X * (c) Copyright 1990 Conor P. Cahill (uunet!virtech!cpcahil).  
  1025. X * You may copy, distribute, and use this software as long as this
  1026. X * copyright statement is not removed.
  1027. X */
  1028. #include <stdio.h>
  1029. #include "malloc.h"
  1030. X
  1031. /*
  1032. X * Function:    malloc_init()
  1033. X *
  1034. X * Purpose:    to initialize the pointers and variables use by the
  1035. X *        malloc() debugging library
  1036. X *
  1037. X * Arguments:    none
  1038. X *
  1039. X * Returns:    nothing of any value
  1040. X *
  1041. X * Narrative:    Just initialize all the needed variables.  Use mallopt
  1042. X *        to set options taken from the environment.
  1043. X *
  1044. X */
  1045. #ifndef lint
  1046. static
  1047. char rcs_hdr[] = "$Id: m_init.c,v 1.1 1992/01/24 03:29:03 dvadura Exp $";
  1048. #endif
  1049. X
  1050. void
  1051. malloc_init()
  1052. {
  1053. X    char            * cptr;
  1054. X    char            * getenv();
  1055. X    union malloptarg      m;
  1056. X    extern char        * malloc_data_end;
  1057. X    extern char        * malloc_data_start;
  1058. X    extern struct mlist    * malloc_end;
  1059. X    extern struct mlist      malloc_start;
  1060. X    char            * sbrk();
  1061. X
  1062. X    /*
  1063. X      * If already initialized...
  1064. X     */
  1065. X    if( malloc_data_start != (char *) 0)
  1066. X    {
  1067. X        return;
  1068. X    }
  1069. X
  1070. X
  1071. X    malloc_data_start = sbrk(0);
  1072. X    malloc_data_end = malloc_data_start;
  1073. X    malloc_start.s.size = 0;
  1074. X    malloc_end = &malloc_start;
  1075. X    
  1076. X    if( (cptr=getenv("MALLOC_WARN")) != NULL )
  1077. X    {
  1078. X        m.i = atoi(cptr);
  1079. X        (void) mallopt(MALLOC_WARN,m);
  1080. X    }
  1081. X
  1082. X    if( (cptr=getenv("MALLOC_FATAL")) != NULL)
  1083. X    {
  1084. X        m.i = atoi(cptr);
  1085. X        (void) mallopt(MALLOC_FATAL,m);
  1086. X    }
  1087. X
  1088. X    if( (cptr=getenv("MALLOC_CKCHAIN")) != NULL)
  1089. X    {
  1090. X        m.i = atoi(cptr);
  1091. X        (void) mallopt(MALLOC_CKCHAIN,m);
  1092. X    }
  1093. X
  1094. X    if( (cptr=getenv("MALLOC_ERRFILE")) != NULL)
  1095. X    {
  1096. X        m.str = cptr;
  1097. X        (void) mallopt(MALLOC_ERRFILE,m);
  1098. X    }
  1099. X
  1100. }
  1101. X
  1102. /*
  1103. X * $Log: m_init.c,v $
  1104. X * Revision 1.1  1992/01/24  03:29:03  dvadura
  1105. X * dmake Version 3.8, Initial revision
  1106. X *
  1107. X * Revision 1.6  90/08/29  22:23:21  cpcahil
  1108. X * fixed mallopt to use a union as an argument.
  1109. X * 
  1110. X * Revision 1.5  90/08/29  21:22:50  cpcahil
  1111. X * miscellaneous lint fixes
  1112. X * 
  1113. X * Revision 1.4  90/05/11  15:53:35  cpcahil
  1114. X * fixed bug in initialization code.
  1115. X * 
  1116. X * Revision 1.3  90/05/11  00:13:08  cpcahil
  1117. X * added copyright statment
  1118. X * 
  1119. X * Revision 1.2  90/02/24  21:50:20  cpcahil
  1120. X * lots of lint fixes
  1121. X * 
  1122. X * Revision 1.1  90/02/24  17:10:53  cpcahil
  1123. X * Initial revision
  1124. X * 
  1125. X */
  1126. SHAR_EOF
  1127. chmod 0640 dmake/dbug/malloc/m_init.c ||
  1128. echo 'restore of dmake/dbug/malloc/m_init.c failed'
  1129. Wc_c="`wc -c < 'dmake/dbug/malloc/m_init.c'`"
  1130. test 2113 -eq "$Wc_c" ||
  1131.     echo 'dmake/dbug/malloc/m_init.c: original size 2113, current size' "$Wc_c"
  1132. rm -f _shar_wnt_.tmp
  1133. fi
  1134. # ============= dmake/dbug/malloc/m_perror.c ==============
  1135. if test -f 'dmake/dbug/malloc/m_perror.c' -a X"$1" != X"-c"; then
  1136.     echo 'x - skipping dmake/dbug/malloc/m_perror.c (File already exists)'
  1137.     rm -f _shar_wnt_.tmp
  1138. else
  1139. > _shar_wnt_.tmp
  1140. sed 's/^X//' << 'SHAR_EOF' > 'dmake/dbug/malloc/m_perror.c' &&
  1141. /*
  1142. X * (c) Copyright 1990 Conor P. Cahill (uunet!virtech!cpcahil).  
  1143. X * You may copy, distribute, and use this software as long as this
  1144. X * copyright statement is not removed.
  1145. X */
  1146. X
  1147. #ifndef lint
  1148. static
  1149. char rcsid[] = "$Id: m_perror.c,v 1.1 1992/01/24 03:29:04 dvadura Exp $";
  1150. #endif
  1151. X
  1152. /*
  1153. X * malloc errno error strings...
  1154. X */
  1155. X
  1156. char *malloc_err_strings[] = 
  1157. {
  1158. X    "No errors",
  1159. X    "Malloc chain is corrupted, pointers out of order",
  1160. X    "Malloc chain is corrupted, end before end pointer",
  1161. X    "Pointer is not within malloc area",
  1162. X    "Malloc region does not have valid magic number in header",
  1163. X    "Pointers between this segment and ajoining segments are invalid",
  1164. X    "Data has overrun beyond requested number of bytes",
  1165. X    "Data in free'd area has been modified",
  1166. X    "Data are is not in use (can't be freed or realloced)",
  1167. X    "Unable to get additional memory from the system",
  1168. X    "Pointer within malloc region, but outside of malloc data bounds",
  1169. X    (char *) 0
  1170. };
  1171. X
  1172. /*
  1173. X * Function:    malloc_perror()
  1174. X *
  1175. X * Purpose:    to print malloc_errno error message
  1176. X *
  1177. X * Arguments:    str    - string to print with error message
  1178. X *
  1179. X * Returns:    nothing of any value
  1180. X *
  1181. X * Narrative:
  1182. X */
  1183. void
  1184. malloc_perror(str)
  1185. X    char    * str;
  1186. {
  1187. X    extern int      malloc_errno;
  1188. X    register char     * s;
  1189. X    register char     * t;
  1190. X
  1191. X    if( str && *str)
  1192. X    {
  1193. X        for(s=str; *s; s++)
  1194. X        {
  1195. X            /* do nothing */;
  1196. X        }
  1197. X
  1198. X        (void) write(2,str,(unsigned)(s-str));
  1199. X        (void) write(2,": ",(unsigned)2);
  1200. X    }
  1201. X
  1202. X    t = malloc_err_strings[malloc_errno];
  1203. X
  1204. X    for(s=t; *s; s++)
  1205. X    {
  1206. X        /* do nothing */;
  1207. X    }
  1208. X
  1209. X    (void) write(2,t,(unsigned)(s-t));
  1210. X
  1211. X    (void) write(2,"\n",(unsigned)1);
  1212. }
  1213. X
  1214. /*
  1215. X * $Log: m_perror.c,v $
  1216. X * Revision 1.1  1992/01/24  03:29:04  dvadura
  1217. X * dmake Version 3.8, Initial revision
  1218. X *
  1219. X * Revision 1.5  90/08/29  21:25:08  cpcahil
  1220. X * added additional error message that was missing (and 
  1221. X * caused a core dump)
  1222. X * 
  1223. X * Revision 1.4  90/05/11  00:13:08  cpcahil
  1224. X * added copyright statment
  1225. X * 
  1226. X * Revision 1.3  90/02/24  21:50:21  cpcahil
  1227. X * lots of lint fixes
  1228. X * 
  1229. X * Revision 1.2  90/02/24  17:39:55  cpcahil
  1230. X * 1. added function header
  1231. X * 2. added rcs id and log strings.
  1232. X * 
  1233. X */
  1234. SHAR_EOF
  1235. chmod 0640 dmake/dbug/malloc/m_perror.c ||
  1236. echo 'restore of dmake/dbug/malloc/m_perror.c failed'
  1237. Wc_c="`wc -c < 'dmake/dbug/malloc/m_perror.c'`"
  1238. test 2064 -eq "$Wc_c" ||
  1239.     echo 'dmake/dbug/malloc/m_perror.c: original size 2064, current size' "$Wc_c"
  1240. rm -f _shar_wnt_.tmp
  1241. fi
  1242. # ============= dmake/dbug/malloc/malloc.3 ==============
  1243. if test -f 'dmake/dbug/malloc/malloc.3' -a X"$1" != X"-c"; then
  1244.     echo 'x - skipping dmake/dbug/malloc/malloc.3 (File already exists)'
  1245.     rm -f _shar_wnt_.tmp
  1246. else
  1247. > _shar_wnt_.tmp
  1248. sed 's/^X//' << 'SHAR_EOF' > 'dmake/dbug/malloc/malloc.3' &&
  1249. .TH MALLOC 3 "" "" "1.0"
  1250. .ds ]T 
  1251. .\"/*
  1252. .\" * (c) Copyright 1990 Conor P. Cahill (uunet!virtech!cpcahil).  
  1253. .\" * You may copy, distribute, and use this software as long as this
  1254. .\" * copyright statement is not removed.
  1255. .\" */
  1256. .\" $Id: malloc.3,v 1.3 90/08/29 22:24:44 cpcahil Exp $
  1257. .SH NAME
  1258. malloc \t- debugging malloc library
  1259. .SH SYNOPSIS
  1260. .ft B
  1261. .nf
  1262. #include <malloc.h>
  1263. X
  1264. char    * calloc(nelem,elsize);
  1265. void      free(ptr);
  1266. char    * malloc(size);
  1267. int      malloc_chain_check(flag);
  1268. void      malloc_dump(fd);
  1269. int      mallopt(cmd,val)
  1270. char    * realloc(ptr,size);
  1271. X
  1272. int              cmd,fd,flag;
  1273. unsigned          elsize,nelem,size;
  1274. char            * ptr;
  1275. union malloptarg      val;
  1276. X
  1277. .fi
  1278. .ft R
  1279. .SH DESCRIPTION
  1280. This malloc library is a replacement for the standard library to be used
  1281. during software development/debugging.  See the standard malloc(3) pages
  1282. for more information on the use of the following functions:
  1283. .nf
  1284. .in +.5i
  1285. calloc(), free(), malloc(), realloc()
  1286. .in -.5i
  1287. .fi
  1288. .sp
  1289. This library differs from the standard malloc library in the
  1290. following ways:
  1291. .P
  1292. 1. Each malloc segment contains a magic number so that free can 
  1293. verify that the pointer passed points to a valid malloc segment.
  1294. .P
  1295. 2. Each malloc segment is filled with a non-zero pattern so that code that
  1296. depends upon malloc segments being null will fail.
  1297. .P
  1298. 3. The size of each segment will be at least 1 byte larger than requested
  1299. and the extra bytes will be filled with a non-zero pattern.  When free is
  1300. called, it will verify that you did not go beyond the number of bytes 
  1301. you asked for.
  1302. .P
  1303. 4. When a segment is freed, it will be filled with a different non-zero pattern
  1304. to ensure that the program doesn't depend upon the use of already freed data.
  1305. .P
  1306. 5. Whenever any of the string or memory functions (str*, b*, mem*) are 
  1307. called with a pointer that is within the malloc arena,  the operation is
  1308. checked to verify that it does not overrun the malloced segment.  A failure
  1309. SHAR_EOF
  1310. true || echo 'restore of dmake/dbug/malloc/malloc.3 failed'
  1311. fi
  1312. echo 'End of part 4, continue with part 5'
  1313. echo 5 > _shar_seq_.tmp
  1314. exit 0
  1315. exit 0 # Just in case...
  1316.